home *** CD-ROM | disk | FTP | other *** search
/ Family Forum 257 / SOMC Family Forum 257 - Disc 2.iso / somc / help.dir / 00001_Script_Start Movie next >
Text File  |  1998-10-27  |  2KB  |  81 lines
  1.  
  2. on startMovie
  3.   
  4.   glowclear()
  5.  
  6. end startmovie
  7.  
  8.  
  9. --* This handler hides/shows the glow images. eg: glow(5,TRUE) *
  10.  
  11. on glow WHICHSPRITE, TRUEORFALSE
  12.   set the visible of sprite WHICHSPRITE to TRUEORFALSE
  13. end glow
  14.  
  15. --* TURN OF ALL GLOWS ON START
  16. on glowClear
  17.   repeat with i = 50 to 65
  18.     glow(i)
  19.   end repeat
  20. end
  21.  
  22. --* This handler switches the text color for a glow effect. eg.textglow("Hello",1)*
  23.  
  24. on textglow WHICHMEMBER, COLORNUMBER
  25.   set the foreColor of member WHICHMEMBER to COLORNUMBER  
  26. end textglow
  27.  
  28.  
  29. --* THIS HANDLER OPEN AND CENTERS A MOVIE IN A WINDOW *
  30.  
  31. on openMIAW MYWINDOW
  32.   set myRect=the rect of window MYWINDOW
  33.   set myStage=the rect of the Stage
  34.   set myWidth=(getAt(myRect,3)-getAt(myRect,1))
  35.   set myHeight=(getAt(myRect,4)-getAt(myRect,2))
  36.   set myLocH=((getAt(myStage,3)+getAt(myStage,1))/2)-(myWidth/2)
  37.   set myLocV=((getAt(myStage,2)+getAt(myStage,4))/2)-(myHeight/2)
  38.   set myNewRect=rect(myLocH,myLocV,(myLocH+myWidth),(myLocV+myHeight))
  39.   set the rect of window MYWINDOW=myNewRect
  40.   set the windowType of window MYWINDOW to 2
  41.   open window MYWINDOW
  42. end openMIAW
  43.  
  44. --* THIS HANDLER TURNS THE SPRITE PASSED TO IT TO INVISIBLE AND RESETS THE CURSOR
  45. on doRollout numsprite
  46.   glow(numsprite,FALSE)
  47.   cursor 0
  48. end
  49.  
  50. --* PLAYS A CLICK SOUND
  51.  
  52. on doClick
  53.   puppetsound 1,"clicksound"
  54.   updateStage
  55. end
  56.  
  57. -- Delays for x number of seconds
  58. on timedelay SECONDS 
  59.   startTimer
  60.   repeat while the timer < SECONDS * 60
  61.     nothing
  62.   end repeat    
  63. end
  64.  
  65.  
  66. on doRollover numsprite,SOUNDNUM
  67.   glow(numsprite,TRUE)
  68.   global finger,fingermask
  69.   cursor[finger,fingermask]
  70.   updatestage  
  71.   case SOUNDNUM of
  72.     1:
  73.       puppetsound 1, "rollsound"
  74.       --  repeat while soundbusy(1)
  75.       --  end repeat
  76.     2:
  77.       puppetsound 1, "rollsound2"
  78.       --  repeat while soundbusy(1)
  79.       --  end repeat      
  80.   end case  
  81.   end